#!/usr/local/bin/perl -w
use strict;
use utf8;
use lib '../lib';

use Data::Dumper;
$Data::Dumper::Deparse = 1;

use NG::Sys::App 'NG::Sys::Loop::Daemon';

my $app = new NG::Sys::App(delay => 10);

$app->run;

sub on_enter_loop {
	my($app) = @_;
	return  1; # yes, enter to loop
}
sub on_before_process {
	my($app) = @_;
	return 1; # yes, do main process
}
sub on_process {
	my($app) = @_;
	$app->logger->debug("enter process ".$app->fullscript);
	return 1; # yes, do after_process
}
sub on_after_process {
	my($app) = @_;
}
